home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 78 / 078.d81 / double boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  763b  |  21 lines
  1. 2 ifa=0thena=1:load"ss",8,1
  2. 3 poke52,56:poke51,0:clr
  3. 4 print"[147][159]":poke53280,.:poke53281,.:printchr$(142),chr$(8):gosub60000
  4. 20 print"[147]" :print"[144]"
  5. 30 print"load"chr$(34)"double or quits"chr$(34)",8"
  6. 40 print"run"
  7. 90 poke631,13:poke632,13:poke633,13:poke198,3:end
  8. 10000 open15,8,15,"s0:double boot":close15:save"double boot":end
  9. 60000 b9$="                                      "
  10. 60010 poke214,14:print:  print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  11. 60020 fori=0to7:printb9$:next:print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  12. 60030 b9$(0)="double or quits "
  13. 60040 b9$(1)="by maurice jones
  14. 60050 b9$(2)[178]"(c) 1990 by softdisk, inc."
  15. 60060 b9$(3)[178]"published on loadstar #78"
  16. 60070 b9$(4)[178]"subscriptions 1-800-831-2694"
  17. 60080 b9$(5)[178]"all rights reserved"
  18. 60090 [151]214,16:[153]:[129]i[178]0[164]5:[153][163]20[171]([195](b9$(i))[173]2))""b9$(i):[130]
  19. 60095 [158]57812"f&m card font",8,0:[151]780,0:[151]781,0:[151]782,56:[158]65493
  20. 60097 [142]
  21.